如何用vba在excel单元格区域中输入函数公式?

您所在的位置:网站首页 excel 双引号中输入公式 如何用vba在excel单元格区域中输入函数公式?

如何用vba在excel单元格区域中输入函数公式?

2024-07-14 23:57| 来源: 网络整理| 查看: 265

如何用vba在excel单元格区域中输入函数公式? 2019年2月27日 作者:水星Excel 12,412 次浏览 暂无评论

在excel中,我们可以在单元格中输入各种函数公式。

比如,我们可以在A4单元格中输入公式

=SUM(A1:A3)

计算A1:A3单元格区域的和。

如果要在vba中实现输入上述的函数公式,可以直接将上述公式作为字符串赋值给Range对象的Formula属性,代码如下:

Sub QQ1722187970() Dim oWK As Worksheet Dim oRng As Range Set oWK = Excel.ActiveSheet With oWK Set oRng = .Range("a4") With oRng .Formula = "=SUM(A1:A3)" End With End With End Sub

上述函数公式属于最简单的函数公式,对于复杂的函数公式,往往带有多个函数的嵌套,以及用双引号括起来的字符串。

比如要在A4单元格中输入如下的函数公式:

=COUNTIF(A1:A3,"a")

对于函数公式内部带有双引号的,在用vba将公式填入单元格内时,需要将双引号再对应的加上双引号,如下所示:

Sub QQ1722187970() Dim oWK As Worksheet Dim oRng As Range Set oWK = Excel.ActiveSheet Dim sFormula As String '双引号外再套双引号 sFormula = "=COUNTIF(A1:A3,""a"")" With oWK Set oRng = .Range("a4") With oRng .Formula = sFormula End With End With End Sub

除了使用Range对象的Formula属性,在用录制宏录制VBA代码时,可以看到录制宏使用的Range对象的FormulaR1C1属性输入函数公式。FormulaR1C1属性的好处就是它使用的是相对引用的形式输入函数公式,不用去关注具体的单元格区域的位置。

 

其它相关文章推荐:excel vba Range对象的Characters属性无效的解决办法如何用vba取消工作表中所有行列的隐藏?如何用vba返回多个单元格区域的联合区域?如何用vba将excel单元格区域的内容转化为图片?如何用vba在word文档的末尾或者开头插入内容?如何在vba中将单元格的文本地址转换为range对象? 分类 :  EXCEL VBA , VBA 标签 :  Formula , FormulaR1C1 , 函数公式        

声明: 本站文章均属原创,未经作者同意必须保留此段声明,且在文章页面明显位置给出原文链接,否则视为侵权。如果想要每天都收到本站的技术文章推送,可以微信搜索公众号:水星Excel或者Excel_Office关注。其它事宜请加QQ:1722187970 或微信号:xycgenius 联系。 



【本文地址】


今日新闻


推荐新闻


CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3